home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD001b.dsk / SOFTDISK.PRT.ALL.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  45 lines
  1. 1  REM   SOFTDISK.PRT.ALL
  2. 2  GOTO 7
  3. 3 DD$ = ""
  4. 4  FOR L = 1 TO 1000: GET A$: PRINT A$;: IF A$ =  CHR$(13)  THEN  RETURN 
  5. 5 DD$ = DD$ +A$: NEXT 
  6. 7 Z = 0:W = 1:I$ =  CHR$(9):D$ =  CHR$(4):NF$ = "SOFTDISK.TEXT"
  7. 11 RD$ = D$ +"READ " +NF$ +",R":P1$ = D$ +"PR#1":P0$ = D$ +"PR#0"
  8. 13  FOR I = W TO 40:EL$ = EL$ +"=": NEXT 
  9. 15  ONERR  GOTO 9000
  10. 20  PRINT D$"OPEN "NF$",L47"
  11. 30  PRINT RD$;"0"
  12. 40  INPUT RL: INPUT LV: INPUT DT$: PRINT D$: POKE 216,Z
  13. 50  HOME : VTAB (12): INPUT "TURN ON PRINTER AND HIT RETURN ";RR$
  14. 100 NR = W
  15. 110 RN = NR
  16. 120  PRINT RD$;RN
  17. 130  INPUT RT$:NR = NR +W: IF RT$ = "D" GOTO 1030
  18. 135  IF RT$ < >"R" GOTO 9500
  19. 140 VS = Z: INPUT PR$: INPUT VP: INPUT VR$: IF VR$ = "V" GOTO 180
  20. 150  IF VR$ = "T"  OR VR$ = "Y" GOTO 170
  21. 160 MR =  VAL(VR$): GOTO 190
  22. 170 MR = 2: GOTO 190
  23. 180 MR = W
  24. 190  FOR I = W TO MR: INPUT RP(I): NEXT 
  25. 200  PRINT D$: IF VR$ < >"V"  AND VR$ < >"1" GOTO 210
  26. 201  GOTO 300
  27. 210  PRINT P1$: PRINT "Q=QUIT H=HARDCOPY V=VERBAL ";: IF VR$ = "T" GOTO 230
  28. 215  IF VR$ = "Y" GOTO 225
  29. 220  PRINT "OR 1-";MR: GOTO 240
  30. 225  PRINT "Y OR N": GOTO 240
  31. 230  PRINT "T OR F"
  32. 240  PRINT EL$
  33. 250  FOR I = W TO MR: PRINT RP(I);: IF I < >MR  THEN  PRINT ",";
  34. 260  NEXT : PRINT : PRINT P0$: GOTO 110
  35. 300  PRINT P1$: PRINT "Q=QUIT H=HARDCOPY G=GOBACK M=MORE": GOTO 240
  36. 1030  INPUT BF$: INPUT AF$: GOSUB 3:SD$ = DD$: PRINT D$: IF BF$ = "H" GOTO 2000
  37. 1080  PRINT P1$: PRINT SD$: IF AF$ = "N" GOTO 1180
  38. 1090  IF AF$ = "D" GOTO 1170
  39. 1110 BL =  VAL(AF$): FOR I = W TO BL: PRINT " ": NEXT : GOTO 1180
  40. 1170  PRINT DL$
  41. 1180  PRINT P0$: GOTO 110
  42. 2000  PRINT P1$: PRINT EL$: PRINT "SOFTDISK MAGAZETTE  ";DT$;"  FRAME ";RN: PRINT P0$: GOTO 1080
  43. 9000  HOME : VTAB (12): INVERSE : PRINT "SOFTDISK.TEXT  NOT FOUND": NORMAL : PRINT D$"DELETE "NF$: GOTO 9999
  44. 9500  PRINT D$"CLOSE": HOME : VTAB (12): PRINT "SOFTDISK.PRT.ALL -- NORMAL EOJ"
  45. 9999  END